pee Teeree) thd as ha 
duu usu 
eS TV eres) Aad Lh 
sus Us Mul 
lu wud Ud tas 
eet eres) Aas td Us as 
Aas ts sus Us kd Lk 
ee veres) Add ko Ld Ms th 
oud the LAS tu 
pee rveree) as peeReeree) 
tas tas ad du a Md 


LUC RVC RVC V STV CRUSTY S eu rev i vervunesyUsl sec esruslvUivulvenvel 
dd dd dd ds a a a 
dd dd dd da ds ts 


VUwWU VvUow 
Vw Www 
YVvUw VWuUw 
WUWY Vwuw 
wow VUwU 
YVVYU VvUwU 
Www wuw 
YWuUwW Vu 
wuw Www 
ed VVUuU 
WUW wuw 
WvUwY Vww 


VYYVYVYVYVYVYYVYVUYUYYUY 
VWOEVYVVYVYVYVYYUYVUYUUY 
WYSE VUYVYVUYUYUYVUYUYUUYUY 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 


T RRRRRRRRRRRR 
T RRRRRRRRRRRR 
T RARRRRRRRRRK 
RRRRRRRRRRAR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 


-—e 

a el el ae oe eo os 
el ce coe eel el el Soe cl el oe ed ee ee ee 
Ree ee ee ee ee ee ee 


**F ILE*®1D**TBKBAS TBK! 
vou 
TITTTTTTT] @BBBBBBB = KK KK BBBBBBBB AAAAAA SSSSSSSS 
TTTTTTTTTT  BBBBBBBB KK KK 88888888 AAAAAA SSSSSSSS 
TT 8B BB KK KK 68 BB AA AA SS 
TT 8B BB KK KK 68 BB AA AA SS 
TT BB BB KK KK 6B BB AA AA SS 
1T 88 BB KK BB BB AA AA SS 
TT BBBBBBBB Ss KK KKK BBBBBBBB Ss AA AA SSSSSS 
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; 1 9 : 
3 : 1 : 
re : 
3 : + 3 
3 § 1 !@ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
; i is DIGITAL eg QUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; ; ® . 
3 1 {e * 3 
3 10 1 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED a ; 
; 11 1 1 '® ONLY IN ACCORDANCE WITH THE R OF SUCH LICENSE AND WITH THE * ; 
3 \§ \¢ 1 Ie Aneta lON OF THE ABOVE COPYRIGH ICE. THIS SOFTWARE OR ANY OTHER * 3 
3 1 1 1 !* COPIES hs tl MAY NO BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 14 14 1 !® OTHER PE TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY # ; 
; 1? Biz ! ¢ TRANSFERRED * é 
3 ‘® x 3 
3 i$ B19 1 !« He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
3 18 B18 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * H 
3 i B55 ' :* CORPORATION. * : 
3 it * Ps 
3 1 0021 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; ¢ Bp § ! +e SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * é 
Py . te 8 
3 4 0024 1 !* * 3 
3 5 8p 5 : PETTTITILITILILILL LLL LLL LLL LLL LLL TLL ililiiiiiiiiiiiiiiiiiii P4 
. i e 
; $ 00 5 1 § FACILITY: DEBUG (DBG) 3 
3 8 0028 1} 3 
3 G 0029 1 !++ 3 
; 0 88 0 1 i FUNCTIONAL DESCRIPTION: 3 
; 1 031 1! Does TRACEback when a program causes an exception of : 
3 ; 00 § 1/ sufficiently ¥* severity level and the exception : 
: 3 ii s not fielded anyone else (namely by itself of 3 
: 4 034 1! by DEBUG). 3 
3 5 Bate 1 i 3 
3 § bp $ 1 ' Version: 1.01 3 
3 0037 1! 3 
3 .] 4 1: Mistery: 3 
3 g 0039 1! thor: 3 
3 re Bee : Carol Peters, 11 January 1978 : Version 01 i 
3 4g Beg 1: Modified Rb. é 
; «64 043 1: Dale Roedger. 15 June 1978: Version 17 3 
: 46 Ree 1! Victoria Holt, 21 December 1982 3 
: «645 45 1! ; 
:; 46 rk 1 |! Revision history: : 
; 647 047 1! 3 
; | «648 048 1 | 02 17-jan-78 KGP ~Changed call parameters, and 3 
; «649 049 1! gece code to do the traceback 3 
3 0 50 1! in non-symbolic form 3 
: 1 51 13 03 18-jan-78 KGP “Exception name is printed using 3 
3 ; 26 ‘7 system message formatte 3 
3 , : 3 S 9-JAN-7 KGP “Output is now properl "beountted. 3 
: 4 41! 5 6-jan-7 KGP “Now TRACEBACK oe not SEXIT 3 
3 5 55 1! under any ¥ reussrencet, This is 3 
; § B28 1! so thay ye an SS$_RESIGNAL 3 
re 057 1! the or ginal wouception so that someone 3 


1 
TBKBA “Sep- 112: . ~32 v4.0- 
VOs7080 18-sep-19 1 SGT PeeeeBALS PER Rare Se srexens.03208%" 18 


nypbo} te or not. 

“ALL of TRACE is now separate from 
DEBUG. If has its own REQUIRE files. 

14 13-mar-78 KGP -Took out fa 


wr 


15 27-mar-78 KGP 


an MSG. 
16 26-APR-78 DAR Modi fie require onal inter directives 
ode 
17 15-JUN-78 DAR Changed all DBG$ symbols to TBKS. 


H 8 : 1! else (the ‘catch-all’ handler) has ; 
; 80 Z ! } to ultinete y decide what to do ; 
Py ’ adou e 
cing $e 1! 06 22-feb-78 KGP “Output is to SYS$..., not DBGS$... ; 
 * oe 1; We put out a separate message for : 
a 2 1! traceback follows...'’. . 
:; 6646 64 1! 07 24-feb-78 KGP -we oluers return the exception name ; 
; 65 65 1! now s het the EXIT/CONTINUE : 
no B98 1! decision ; made elsewhere. ; 
; 6 ge 1 } Some diddling to make the severity ; 
; 68 68 1! level of the TRACEBACK message the : 
3 9 88? 1! same as the level of the ucSot on. ; 
: 0 0 1! 08 24-feb-78 KGP -Formal parameter is now signal array : 
: 71 O71 1! address rather than exception name ; 
3 ie b078 1! so we can PUT gin rather than : 
Oe 075 1! doing all that ourselves. ; 
>; 24 0074 1! 09 28-feb-78 KGP “Changed all error returns in TRACE ; 
ay 0075 1! to be EXITs. Now, if TRACE returns ; 
3 6 arg 1! at all to the assembly-language TRACE 

; 7 077 1! code, all must have gone well. 

3 4: 078 1! “Added code to ensure that we don't 

7 079 1! try to ‘trace’ an overwritten stack. 

; 80 080 1! “We don't renae the symbol table 

; 6 CB 88 tp on successive TRACEbacks. 

; Ht 0 ; 1! “We now set up our output based on how 

 & 0083 1! PUTMSG did it since it looks after 

; 84 0084 1! Cnoticreating the SYSSOUTPUT/SYSSERROR 

a oe 0085 1! es, etc. 

; 360886 0086 1! 10 01-mar-78 KGP -Took out all initialization of 

c= Oy 0087 1! FABs/RABs, and we now don't do OPEN or 

; 688 0088 1! CONNECT. We let PUTMSG setup everything. 

; 0089 1! 11 2-mar-78 KGP “Peatoning exception_type for 

; 90 090 1! FIN PC correlation is now decided 

ee 091 1! in BAS (is no longer local to DPC) 

; 4 0092 1! 12 7-mar-78 KGP “Except ion. type is always forced to 

 & Ong 9 TRAP_EXC after the first stack 

; | 694 0094 1! frame symbolization. 

; «69S 0095 1! “We now call TBKSPUTMSG to put out 

; 0096 1! error messages. 

; «#97 944 1 ! 13 8-mar-78 KGP -FIND_DST now returns an indication of 

3 a 098 ! whether the traceback will be 

; 100 1! 

: 1! 

: 19 1 i 

; 10 1! 

3 1! 

3 $8 ' 

3 09 1! 

; 108 1! 

; 109 1! 

3 1 1! 

: 1 1! 

cs oo 1 ! 

» oo 1! 

. . 2 


-—-— = 000 Sees css 
Pun =OSe Ne ARR “oon 


ee as os Ss Ss SS SS 
ed ed od td ot = = = IO 


fwn—o 


VO0~000 | if: sep- 1 P3:38:43 — BEScbwGnaSfensctrace shcarexeas.a3209%" (13 


s 115 116 1! 00-Oct-79 JBD Removed the ‘Unknown DST record’’ message 
; 139 118 1 / - DEC-79 JBD Added stmt number support. . 
3 ¥ 117 11 1.01 30-Jan-8 JBD Made module and routin ng names longer than 15 

3 11 118 1 i ghoracters ppear on f fferent Line 

3; 1 119 1 1 3.01 03-Mar-82 RT Passed in f channel number o ine ge. file 

3 ! $ ! » ! se \t fooge t have to be eoened again to 

; 1 § 1 § 1 21-Dec-82 VJH Made corrections so that the or iainet status is 
ae 1 1! returned men ane eer turns o the 

> 126 0124 1! default me gs cSYeSbufASG™ A. not 

: 125 125 1 define SYS ou Sut Legs SYSSERROR in her case). 

i. § 126 1 i 15-Aug-83 PS Did seneret clean up to use updated files 

; : f 3 ’ = from DEBUG. 
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: } ° } 8 ! | TABLE OF CONTENTS : 
‘.- ¢ 131 1 FORWARD ROUTINE : 
i 3 | § 1 IS_EXCEPTION, ' See if a given gucegt ion name , 
: 134 1 ! is TRAP_EXC or FAULT_EXC type. ; 
3 135 134 1 out_traceback : NOVALUE, ! display Line of traceback information ; 
; : § : 5 ! TBKSDO_TRACEB; ! traceback user program after error : 
; 138 1 ; 1 : 
; 139 1358 1 ! REQUIRE FILES: 3 
; 140 139 1! : 
; 133 139 } REQUIRE ‘SRC$:TBKPROLOG.REQ'; : 
: 128 418 1 EXTERNAL ; 
: 144 0414 1 TBKSGL_EXC_TYPE, ! Initial FAULT/TRAP type for PC correlation. : 
; 145 415 1 TBKSMOBULE-CS : CS_POINTER ; 
> 146 416 1 TBKSROUTINE CS : CS_POINTER, ; 
3: «147 417 1 TBKSGL_STMT, 3 
; «148 0418 1 TBKSGL_LINE, ; 
3; 149 & 0419 1 TBKSREC PC, . 
3 139 be y : TBKSMODOLE_DST : REF. DSTSRECORD, : 
; 136 3 ¢ : tbk$gl_outprab: S$RAB_DECL; ! RAB FOR ‘OUTPUT’ : 
> «6154 424 1 EXTERNAL ROUTINE : 
; «6155 425 1 tbk$fake_msg : NOVALUE, ! write out fake traceback messages. ; 
3 138 426 1 tbk$put msg, ' write out syston~genereted messages. 3 
TS 0427 1 tbk$fao_put, ! Format into output buffer. : 
; 158 0428 1 tbk$fao_out : NOVALUE, : 
3; 339 0429 1 tbk$out_put : NOVALUE, ! Write out the output buffer. : 
; 160 0430 1 TBK$IO_SETUP ! Set up for PUTMSG-type 1/0. 3 
> 161 0431 1 TBKSSYMBOLIZE : NOVALUE, : : 
3 196 04 é 1 tbk$find_dst; ! finds and maps in the DST for the image ; 
s 16 04335 1 ; 
> «(164 Be 4 1! ; 
; 6165 435 1 ! Diagnositic output control : 
; 166 04 $ 1! : 
; 167 4 1 LITERAL : 
: «168 438 1 TBK_BAS1 = Q, ! peta out input parameters : 
; 198 439 1 TBK_BAS = b° ! List off the entire DST, | ; 
; iv 40 1 TBK_BAS = 0, ' Output during stack unwinding 3 
3 10) re : TBK_BAS = 0; ! Error messages. : 
; 18 L 108 1 SIF TBK_BAS2 : 
3 (174 U 0444 1 3 
>) are U 0445 1 FORWARD ROUTINE ‘ 
3 176 U re 1 Pr cS : novalue, : 
; 7 U 0447 1 IST_DST; : 
: 178 U ret 1 3 
3; 179 U 0449 1 EXTERNAL ROUTINE : 
; 180 U 0450 1 tbk$get_nxt_dst; ! Make successive DSTs available. : 
3; «(181 451 1 SFI 3 
9 § 4 § 1 3 
3; 3 1 MACRO : 
.. ¥ 454 1 CFP$L_HANDLER = 0, 0, 32, O% 3 
; 185 455 1 CFPSL“OLD FP = le, 6. $. Of. ; 


1 
TBKBA 1bese -1984 112:4 VAX-11 Bliss=-32 V4.0-742 P 5 
vou-0 Veaeee- 1882 9G3843 Nee RALS FER Race cecarexeas.0s20%% 33 
GLOBAL ROUTINE tbk$do_traceb ( {nptitchan, 
e 


name, 
90 mg_Reader_blk, 
91 syntab_ sec _bnds, 
3 signal_array, 
9 rst_fp 
94 current_fp 
95 current-pcs = - 


2S 


Se. 4 1 

, 4 1 

4 4 1 

9 460 1 

; 461 1 

.% 4 1 

ie 4 1 

4] i. 

: 4 466 1 its 

; 198 467 1 ! Functional description: 

; 199 4 4 1! Call PUTMSG to output the reason why vance was called. 

: 200 4 4 Then maps the DST into PO space and used it so 

: 201 470 1! give a symbolic stack dump of where the program 

3 o 471 1! was when it ‘faulted’. 

3; € hh 1} We then return leaving ourselves and the DST mapped 

; 204 475 1! mn so that on subsequent invocations of TRACE we can 

; 205 rh : avoid the re-mapping overhead. 

; oF be 78 : ALL output is to SYSSERROR and SYSSOUTPUT. 

; 209 0478 1 ! Formal parameters: 

; 210 479 1! imgfilchan - the channel number that the image file is 

: 211. 480 1! open on. 

3 \¢ 481 1! file_name - a counted string to the file specification of 
a. rt {| : a the image file. 

; 214 0485 1! img_header_blk = address of a byte block containing the image 

3 219 0484 1! header data needed tc find DST and GST data for 
3 18 0485 1! the image. . 

3 21 Bene 1! symtab_sec_bnds -address of a 2 longword vector (in the bootstrap) 
: 218 04 1! where the symbol table bounds are stored so that 
; 219 0488 1! we don't need to map in the DST on successive TRACEbacks. 
; 220 0489 1! signal_array “address of the ‘signal erray generates for the 
3 1 490 1! exception that causes TRACEback. 

; ¢ 491 1! first_fp -FP of first frame NOT to be traced. 

3 492 1! (i.e. last frame we look at) 

: 4 493 1! current_fp = current value of user FP 

3 5 beoe ! current_pc - current value of user PC 

3 $ $49 1! Implicit inputs: 

) 8 497 1! PUTMSG creates a process logical name (SYSSPUTMSG), 

3 9 498 1! the translation of which returns an encoding 

3 499 1! of the ISI numbers for SYSSERROR and SYSSOUTPUT. 

3 1 ; 9 1! we stuff these ISIs into our own RABs 30 that 

3 § 1! we don't worry about the SYSSERROR/SYSSOUTPUT distinction 

3 5 ¢ te and so that we avoid opening the channels on successive 

3 : : ! invocations. : 

3 505 1 ! Output parameters: 

5 : ! ; none 

: $ 5 3 1! Implicit eytputes 

; 240 5 1! The 2-longword vector in the boptetres which points to the 

3; 241 219 1: beginning and ending of the symbol table gets filled in 

3 ria 23 : } with the mapped addresses of where we map the symbol table. ’ 
‘3 266 218 1 ! Routine value: 


K 1 ; 
TBKBA 16-Sep-1984 02:12:4 VAX-11 Bliss-32 V4.0-742 Page 
vo0-000 1e783b-1982 93:38:4? — bESdiwSuaSfensctRace shcarexeas.as204%" (38 
> 245 ee Either an EXIT is done, or this routine returns ; 
; rf 1? 1 the exception name which caused TRACEback in the first place. : 
; 24 13 1 | Side effects: ; 
3 ¢4 18 3: The DST is mapped into PO space. A number of lines are output to ; 
: 1 13 logical device SYSSOUTPUT. If SYSSERROR is different from : 
: 1 : ! SYSSOUTPUT, the same output goes to SYSSERROR. : 
: 588 ; ji : 
: ee 2¢5 J : 
; 5 & iIN : 
; 2$ 5 MaP 3 
3 § symtab_sec_bnds : ref vec orl. Long’. 3 
3 a 5 5 poet array : ref vector tong ° : 
: 259 0528 FICE_NAME : REF VECTORL,BYTE); ; 
; 260 529 MAP : 
; 261 0530 CURRENT_FP : REF B OCKE BYTE]. ; 
: 66 , b2 1 CURRENT_PC : REF BLOCKL,BYTEJ; : 
3; 2 5 ; LOCAL : 
: 264 05 symbolic, ' Flag. => symbolic traceback, : 
; 265 0534 ! 0 => non-symbolic. : 
; 266 be 5 exceptn_name, | ; 
; 267 5 6 blank :~CS_POINTER, ; 
; re 82 , status; : 
; 470 0539 ! Pick the exception name out of the signal array : 
: efi 0540 ! so that we then use its severity to print the 3 
s a 9541 ! standard TRACEback message. This is done so that 
ar p26 ! the levels of the first message and the ‘'trace follows..."' 
3 274 054 !' message is the same - for consisténcy and so that 
3 are 0544 ! the two messages go to th sone channel(s). 
; an 0545 ! The message reflects the Cnon-Jsymbolic indication passed 
; A bee$ back by FIND_DST. 
>: 279 0548 exceptn_name = .signal_array(1]; 
: 380 549 site ee 
3 4 550 
: 58 32) i*R h f 
3 ! Report on the cause of the exception, and 
3; 6284 baeg ! let PUTMSG open our output Channel (si for us. 
3 Be e32 If this fails, we must punt. 
; 55 
: a8 339 status = tbk$put_msg(.signal_array); 
; 290 559 IF NOT .status 
: 291 560 THEN 
: 36 561 BEGIN 
; 2 296 SEXIT( code = .status); 
3 3e 287 END; 
; > 565 ! Set up to do I/0 by relying on the fact that 
; 29 296 ! PUTMSG has eireedy sorted out the problems 
3 38 22 ! of where SYSSOUTPUT and SYSSERROR actually go to. 
; si 569 status = tbkSio_setup(); 
3 1 570 


TBKBA bse $ep-1984 74 VAX-11 Bliss-32 V4.0-742 7 
v04-0 ; 308-1382 9¢: 36: 3 DISKSVMSMASTER: CTRACE SRCITBKBAS.B32- ” (3) 
f the user has turned a all of the default massage flags, then 
: ie Ms ae to TBKSTART with the original status; no traceback is 


a 
' 
! 
i 
iF status EQL SSS$_NOTRAN 


RETURN (.exceptn_name); 
Zif tbk_bas1 
ithen 


$fao_tt_out (‘tracing back - we t this 
$fao_tt_out('rab_isi has value ! OF toesgt. fos RR isi]); 


! Print out the input parameters. 


SFAO_TT_OUT('file_name is !UB: !AC',.file_ pangl0}.. tite name); 
$FAO_TT_OUT(' image header block starts at” a alti 79. header_ blk); 
$fao_tt_out(' current FP=!XL, 4 phd 2 first F 

“current fp. current. pc. first_fp); 
$fao_ 3 out ("signa array is at ix! why sarray} 
erAgat T“OUT('exception name is !XL',.signal_array 14; 


FUSS 
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ccccccccccccr 
OOCGKCCCOCOCOOOOOCOOCOCOOOOOOOO 


! Try to locate and map = the DST. 
! If this doesn't work w 
i produce a nenvayapel ta. TRACEback. 


symbolic = tenet tog zeet ( vag? then. 
e_name, -img_header_blk, ne, sec_bnds); 


Abb Ah dA Ah Ah Ach Ah hb db db dh dub deh db db db dich ded 
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WAIWIWororonenonononon): 


WANA W AWN 


060 ! Pick up the message number and force the 
604 i severity level to match. 


0606 symbolic = (if .s prel tc then TBK$_TRAC ae else TBK$_STACKDUMP) ; 
607 symbolic = .symbolic + .exceptn_name<0, 


' Put out the message to SYSSERROR and SYSS$OUTPUT. 
tbk$fake_msg(.symbolic,0); 
TBK_BAS2 
tbk$fao_put( uplit( Zascic + CRDEBUG=!xL= TRACEBACK, symbolic stack dump follows)'),.symbolic); 
Speseut put(); 
DST(); 
: a if there are any active afer’ frames. 
We can't TRACE anything if either the stack has 
' been overwritten or if the lease has returned 
i to the bootstrap. 
-FIRST_FP LEQA .CURRENT_FP ) 


_ thk$fake_msg(TBK$_NOCALLS,0) 


RIF 
ZTHEN 


ccccr 
Sooo 
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‘module name 


M1 
1-88-1986 19:28:17 DE SkSMEMASTERSCTRACE ga 
BEGIN 
! Print the standard TRACE heading. 
tbk$fao_put (uplit (%ascic 
ine name Line rel PC abs PC!/')); 


routin 
tbkSout.put(); 
END; 


' For FORTRAN PC correlation, we need to set 

i TBKSGL_EXC_TYPE to either FAULT_EXC or TRAP_EXC 

; except ton type 89 that DPC can Come up with the best 
: symbolization for the PC. We assume the Latter 
! and let IS_EXCEPTION cover the exceptions. 


TBKSGL_EXC_TYPE = TRAP_EXC; 
ie ISEXCEPTION( .EXCEPTN_NAME) ) 


TBKSGL_EXC_TYPE = FAULT_EXC; 
! Loop printing out each active frame until we have 
! ‘unwound’ to the frame set up by the DEBUG bootstrap 
! when the user image was called in the first place. 


WHILE (.first_fp GTRA .current_fp) 
DO BEGIN 


XIF TBK_BAS3 
XTHEN 


aFI 


Sfao_tt_out('FP = !XL, PC = !XL",.CURRENT_FP,.CURRENT_PC); 
TBKSSYMBOLIZE(.CURRENT_PC); 
display current module/routine/line/PC 
out_traceback (. tpkseodule ce. 


.current_pc 


' For FORTRAN pc-to-Line symbolizations, it never 
' makes sense for any frame other than the first 
! to be of ‘match’ type FAULT_EXC. 


TBKSGL_EXC_TYPE = TRAP_EXC; 

! Set FP and PC to that of previous frame, making 
' sure not to get fooled by an overwritten stack. 
' j.e. insist that the previous frame is ‘above’ 
!' the supposed current one. 


ts mor -current_fp LSSA .current_fpC CFPSL_OLD_FP J ) 


P | 
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3 $18 685 4 34 ¥ 
; «41 6 8 4 thk$fake_msg(tbk$_badstack,0); 
>; 418 6 EXITLOOP; 
; £38 688 END; 
: 254 $90 t t_fol cfp$t ] 
; current_pc = .current_ C return_oc J; 
: 498 691 CURRENTIPP = SEURRENTTEPE ERPSLoOF BCRP AOS 
s 6 $36 D; 
> 424 69 
; 425 694 ! Only OK return point, 
; 426 695 ! We return the exception name we were passed 
: 427 $38 ! so that the TRACE shertup routine can 
$ ? 3 44 ! decide what to do about it. 
; 430 699 RETURN(.EXCEPTN_NAME) ; 
> 431 0700 END; 
-TITLE TBKBAS 
-IDENT \V04-000\ 
-PSECT TBKSPLIT,NOWRT, SHR, PIC,0 
20 20 20 65 6D 61 of 20 65 6C 75 64 6F 6D 4E 00000 P.AAA: .ASCII \Nmodule name routine name \. 3 
20 65 6D 61 6E€ 20 65 6€ 69 74 75 6F 72 20 20 0000F ‘ a 
0 $8 $3 0 20 20 20 20 20 20 $14 3 
20 65 6€ 69 6C 20 0 20 20 20 20 8 0 20 4 eASCII \ Line rel PC abs PC!/- ; 
20 20 20 43 50 20 6C 65 § 0 20 ° 0 20 00037 \<0> F 
00 2F 21 4 0 20 62 61 20 00046 3 


N E 
SEXTRN TBKSMODULE-CS, TBKSROUTINE_CS 
-EXTRN TBKS$GL_STMT, fBK$GL_LI 


-EXTR 
-EXTRN TBKSIO . 
-EXTRN TBKSFIND_DST, SYSSEXIT 


-PSECT TBKSCODE.NOWRT, SHR, PIC,0 


Be BeBe Sete Sete reve rere rere re rere re ere eevee rere eae rrrere rere rere rere rere eee 


: ‘ 003¢ 2088 aGNTRY TBKSDO_TRACEB, Save R2,R3,R4,R5 : 0457 
3 Matdaittdts 88 3 8 MOVAB TBKSFARE MSG, R4 ; 
20 14 aC D 10 MOVL § SIGNAL_ARRAY, RO > 0548 
04 Ad D0 16 MOVE 4(RO), EXCEPTN_NAME pam 
000000006 1 FB OOOIA CALLS #1, TBKSPUT_MSG ; 
VL ; 
D 1 MO RO, STATUS 
£ 4 BLBS STATUS, 1$ : 0559 
000006 PB 00099 CAS BL SYSSEXIT , Wate 
boooo00o¢ Q F Q 18: CALLS 40, TBK$10_SETUP : 0569 
D MOVL RO, STATU ; 
00000629 BF p A CMPL TATUS, #1577 : 0576 
éF 0041 BEQL $ ; 


; Routine Size: 261 bytes, Routine Base: TBKSCODE + 0000 


TBKBA 1b-5¢ Sep-1984 74 VAX-11 Bliss=-32 V4.0-742 Page 10 
V 8030 1 ~g00n 138% ¢: 38: +3 DISKSVMSMASTER: CTRACE .SACITBKBAS.B32:1> (33 

ze o¢ AC 2 43 MOVQ §IMG_HEADER ~BLK -(SP) : 0600 ; 

4 AC 7D 0004 MOVa IMoF 1 CHAN -(§P) + 0599 ; 

000000006 3 4 FB CALLS TBKSF post : ost ; 

0 00098198 BF BO 0055 MOVL = Ae Rae sfhaocc : ; 

50 000981A0 8F DO $: MOV ; 23008, SYMBOLIC : ; 

51 53 e3 0 EF As $f eXtzy i 4. apGXGEPTNANAME. RI + 0607 ; 

0 1 ¢0 oA ADDL2 RI, SYMBOLIC ; ; 

D4 0006D CLRL (ép) + 0611 ; 

64 Pe 8001 CALS og FAKE_MSG : 

1c OAC 18 «AC Af ig CMPL ffast. FP, CURR RENT. FP + 0624 ; 

Op 1A 0079 BGTRU : ; 

E 04 00078 CLAL se 5 ($B) + 0626 ; 

00098028 8F DD 9070 PUSHL #622635 : ; 

64 08 Fe 008 CALLS #2, TBKSFAKE_MSG : ; 

12 1 0086 BRB 5$ ; ; 

0000' CF 9F 00088 4$ PUSHAB P.AAA + 0632 ; 

000000006 00 01 FB 008¢ CALLS #1, TBKSFAO_PUT : ; 

000000006 00 00 FB 09 CALLS #0, TBKS$OUT PUT ° + 0634 ; 

65 or DO O009A S$: MOVL = #1 TBKSGL EXC_TYPE + 0643 ; 

3 DD 0009D PUSHL exter ARE + 0644 : 

0000v CF 01 FB O009F CALLS ; a NEXCEPTION : ; 

03 0 €9 O000A4 BLBC : ; 

65 02 00 000A7 MOVL TBKSGL EXC TYPE > 0646 ; 

38 1¢ AC DO OOOAA 6$: MOVL #2, 18k R2- > 0652 ; 

5 18 AC D1 OOOAE CMPL CPF‘ ‘PB, Re : ; 

4D 1B 00082 7$: BLEQU 9$ : ; 

20 AC dD 00084 PUSHL CURREN > 0659 ; 

000000006 00 01 FB 00087 CALLS TBKS§YmB0L Ze : ; 

20 AC DD OO0BE PUSHL CURRE > 0668 : 

000000006 00 DD 000C1 PUSHL ett ie Pe + 0667 : 

800000006 0 DD 000C7 PUSHL  TBKSGL_STMT + 0666 ; 

000000006 060 oD 000CD PUSHL TBK$GL~LINE > 0665 ; 

000000006 00 DD 00003 PUSHL  TBKS$ROOTINE_CS > 0664 : 

000000006 00 DD 00009 PUSHL TBKSMODULE C + 0663 ; 

Ov00V CF 06 FB OOODF CALLS #6, OUT_TRACEBACK : ; 

65 01 DO 000E4 #1, TRKSGL _EXC_TYPE : 0676 ; 

Oc A2 2 D1 000E7 R2. 12(R2) + 0683 ; 

OD 1F OOOEB BLSSU-8$ : ; 

7E D4 OOOED LRL 5 ($B) > 0686 ; 

0009848C BF DD OOOEF PUSHL #623804 ; : 

64 02 Fe OOF CALLS #2, TBKSFAKE_MSG ; ; 

1 F BRB > 0685 ; 

ic AC 0c A2 7D OOOFA 8S: MOV 12(R2), CURRENT_FP : 0691 ; 

AD 11 OOOFF BRB ; 0652 ; 

50 53 DO 00101 98: MOVL § EXCEPTN_NAME, RO + 069 ; 

4 00104 RET + 0700 3 


2 
vOs=000 IESE0-1984 QBIEAE YMG HTABhLSRGR?CH4i22742-saxons.osoft0" cl 


! Print the module name, if we have one 

string_ptr = (IF .mod_nam NEQ 0 THEN .mod_nam ELSE null_string); 
tbk$fao_put (UPLIT (ZASCIC '!15AC '), .string_ptr); 

Bie ptr = (IF .lab_nam NEQ 0 THEN .Lab_nam ELSE null_string); 


F_ .string_ptr(0) GTRU 3 
HEN BEGIN tbk$fao yi het (UPLIT (ZASCIC '!63AC!/"), .string_ptr); 


; 433 701 1 ROUTINE out_traceback (mod_nam, cs 
> 434 7 ; 1 Lab-nam,  ) 
; 435 ? 1 ° ting _num, a 
; ? § f : \ stat en _num, ‘ : 
; 438 7 $ 1 abs“pc! : NOVALUE = ! outputs a Line of traceback > 
; 439 707 1 144 i] 
; 440 108 1! e.! 
; 44] 109 Functional Description: : } 
; ct8 ry ! Outputs a line (or two) of traceback information. ; } 
> 445 rg 1 | Formal Parameters: = | 
: 446 714 1! | 
3; 447 715 1! MOD_NAM: address of module name counted string ok 
; 4468 rig 1! H address of label eg ang “ cs 

; 449 “ae LINE_NUM: Line number matching th 

; 450 0718 1! STMT_NUM: statement number wi hin. che Line 

; «451 0719 1! REL_PC: PC relative to label (routine) 

; $26 0720 1! ABS_PC: PC matching the Line number 

: 8 O72 | i Implicit Input 

3 ! mp lic nputs: 

; 455 07 : 1! 

; ces 0724 1! File(s) have been opened already.... 

3; «45 8 2-94 

; 458 726 1! Implicit Outputs: 

; 459 0727 1! 

; 460 0728 1! Output to file(s)... 

3; 461 0729 1! 

3 ret 0730 1! Routine Value: 

3; 46 0731 1! 

3; 464 bf 3s ' 4 NOVALUE 

> 6465 Bf 1! 

; 466 , 734 1! Side Effects: 

; 467 0 32 1! 

; 468 0736 1! Output via TBKSFAO_PUT and TBKSOUT_PUT. 

3: ° 469 0737 1! 

; 470 0738 1 !-- 

3 «471 0739 1 

; ore 0740 BEGIN MAP mod_nam : CS_POINTER, 

3 rth 8 re Lab-nam : CS-POINTER; 

3 at7 0 “§ LOCAL string_ptr : CS_POINTER; 

; 133 6 45 BIND null_string = UPLIT BYTE (0); 

3 +78 28 

3; 47 is 

3 0 

: 

3 4 

: 
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738 a tbk$fao_put (UPLIT (ZASCIC '!49* ')); “te 
766 ELSE tbk$fao put (UPLIT (ZASCIC "!32AC'), .string_ptr); ; 
16 IF -Line_num NEQ 0 : 4 
76 THEN  tbk$fao_put (UPLIT (ZASCIC '!5UL'), .Line_num) | 
164 ELSE  tbk$fao-put (UPLIT (ZASCIC 'iSe ')5; : | 
768 IF -stmt_num NEQ 0 a) 
76 THEN ibks fa0 o_put (UPLIT (%ASCIC ' p42 Ff -stmt_num) | 
768 ELSE tbkSfaozput (UPLIT (KASCIC "15s * : | 
Ha tbk$fao_put (UPLIT (ZASCIC ‘!9XL!10XL"), al ae) -abs_pc); ; 1 
bre tbk$out_put (); ! Cause the current buffer to be output. 
0774 1 END; 
| 
.PSECT TBKSPLIT,NOWRT, SHR, PIC,O 3; | 
00 00050 P.AAB: .BYTE ; | 
0051 -BLKB 3 | 
00 20 43 41 35 31 21 06 0054 P.AAC: ASCII <6>\!15AC \<0> ; os 
Hi 1 43 41 33 36 21 005C P.AAD: ASCII <7>\i63AC!/\ : 4 
0 00 9 2A 39 34 21 OS 00064 P.AAE: .ASCII <5>\!49% \<0><0> : as 
00 00 43 41 : 3 1 05 OQ006C P.AAF: .ASCII <5>\i32aC\<0><0> : 
00 00 00 4¢ 1 04 00074 P.AAG: .ASCII <4>\'5UL\<0><0><0> : et 
00 + 00 g A 35 21 04 QOO7C P.AAH: .ASCII <4>\!5* \<0><0><0> : | ame | 
00 00 4C SA 34 21 2E O05 00084 P.AAI: .ASCII <5>\.!42L\<0><0> : | 
4 4 00 20 2A 35 21 04 tt P.AAJ: .ASCII <4>\!5® \<0><0><0> : $7) 
00 00 4c 58 30 31 21 4C 58 39 21 09 00094 P.AAK: ‘ASCII <9>\!9XL!10XL\<0><0> : ; 
NULL_STRING= P.AAB 3 | 
ee 
.PSECT TBKSCODE,NOWRT, SHR, PIC,0 ; 
001C 00000 OUT_TRACEBACK: 3 
4 00' CF 9E ROVAB NULL STRING. RG Fesiyy et 
53 000000006 60 96 90007 MOVAB TRKSFA_ PUT. R3 ; a. 
4 Ac b 90 TSTL MOD_N : 0750 . 4 
06 1 BEQL ; 3 | 
52 04 AC p ROVL MOD_NAM, STRING_PTR ; me 
52 4 9€ 00019 18 MOVAB NULL STRING, STRING_PTR : 4 

2 pb 1C 28 PUSHL STR RING_ : 0752 ; 
04 Ad OF IF PUSHAB P,AAC ~ ; . 
63 02 F ie TBKS$FAO_PUT : OF. 
08 AC D 4 TSTL AB_NAM ; 0754 Ba 

06 1 7 BEQL ; ; 

52 08 aC p 9 ROVL LAB. NAM, STRING_PTR ; ; 

52 64 9 F 3$ MOVAB NULL_STRING, STRING_PTR : ; 

1F 62 3 2 4$ CMPB ss (STRING_PTRS, et : 0756 ; 


TBKBA 16-56 Sep-1 :4 X-11 Blis $-32 V4.0-742 Pa t 
v04-000 12-08-1382 99:38:97 SKSVMSMASTER: LTRACE . SRCITBKBAS.B32: 1° vee 
10 18 5 BLEQU 5$ ; 
4 pp PUSHL STRING_PTR : 
Oc AG OF 9 PUSHAB P.AAD : 
63 02 FB C CALLS #2, TBKSFAO_PUT : 
16 AG OOF f PUSHAB AE : 
63 i re i CALLS #i, TBKSFAO_PUT : 
: po 47 5$: PUSHL_ STRING_PTR : 
1¢ AG OF 00049 PUSHAB F : 
63 02 F 4C CALLS #2, TBKSFAO_PUT : 
oc AC C 4F 6$ TSTL NE_NUM : 
0B 2¢ BEQL 3 
¢ AC pd PUSHL LINE_NUM : 
4 AG OOF 097 PUSHAB P.AA : 
63 02 rB SA CALLS #2, TBKSFAO_PUT : 
6 11 0005d BRB 4$ ; 
2c «AG «OOF OO05F 78: PUSHAB P.AAH : 
63 01 F 0062 CALLS #1, TBKS$FAO_PUT : 
10 AC D5 00065 8$: TSTL. © STMT_NUM : 
0B 13 00068 BEQL ; 
10 AC pd D00¢ PUSHL  STMT_NUM : 
34 AG OF 0060 PUSHAB P.AA ; 
63 02 FB 900 0 CALLS #2, TBKSFAO_PUT : 
06 11 0007 BRB 10$ ; 
3c = AGF «00075 98 PUSHAB P.AAJ : 
63 01 FB 00078 CALLS #i, TBKSF Ag PUT ; 
7é 146 AC 7D 00078 10$: MoVva Rel (SP) : 
44 AG OF 0007 PUSHAB : 
63 03 FB 00082 CALLS ‘i, TBKSFAO. PUT ; 
000000006 00 00 FB 00085 CALLS #0, TBKSOUT_PUT ; 
04 0008C RET : 


; Routine Size: 141 bytes, Routine Base: TBKSCODE + 0105 
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: 508 p07? 1 ROUTINE IS_EXCEPTION( EXC_NAME ) = 

; 509 8 1 

; $10 a 1 ++ 

3 1} ah 1 Functional Description: 

3 ig 780 1! Given an exception name = the Longword which encodes the 
; 514 781 1! type, etc, of an excep ton - deguce if this exception is 
; 515 07 < 1 i the so-called FAULT_EXC type. This is for the PC_TO LINE 
: 218 th 1} translation = we have to know if the PC is on the instruction 
3 aif ree : which caused the exception, or if it is on the next instruction. 
3 232 oF § 1! The answer to the Gyesy ten is simply whether 

3 7 1: the given EXC_NAME is in our table of exceptions. The only 
; $21 0788 #1! trickery is that this routine makes sure only to Look at 
SS ¢ 0789 1! the part of the longword which encodes the error code - and 
eS ? 3730 ! not at the rest of it since that may change. 

3 ‘ 5 145 1 ! Formal Parameters: 

3 é 6 0795 1! 

3 : f Boge : EXC_NAME = the Longword system-defined exception name. 

3 (Sey 0796 1 ! Routine Value: 

; 3 0797 1! 

s Say 0798 1! TRUE or FALSE. See above. 

3 236 8443 1! 

; 33 800 1 ! Side Effects: 

> 534 0801 1! None. 

3 339 paps 1 f= 

; 536 0803 1 

3 357 0804 BEGIN 

; 538 0805 

3; 539 0806 EXC_NAME : BLOCK C 2SUPVAL, BYTE J; 

; 5406 0807 BIND 

3; «6541 0808 ! The O-ended List of exception codes. 

; 2t§ tts 

; «54 810 EXCEPTION_LIST = UPLIT WORD ( 

: «544 0811 SS$_ACCVIO, 

3 365 bai8 SS$_NOTRAN 

; 546 81 5S$~RADRMOD, 

> 547 814 SS$~ROPRAND, 

; 548 15 SS$_OPCDEC, 

3 549 18 SS$_OPCCUS, 

; 550 1 SS$_BREAK 

; 231 18 SS$-FLTOVE _F, 

3 26 1 SS$_FLTUND_F, 

3 3 0 SS$_FLIDIV_F, 

3; 6554 1 SS$_TBIT 

; 555 : SS$"COMPAT, 

: 28 ) 

; é 8 : : VECTORL, WORD J; 

: 3&5 § ! Simply loop thru the List checking each one, 

3 $9 ! ending when the 0 one is encountered. 

: 66 § INCR I FROM 0 

; 56 0 

3; 6564 1 BEGIN 


2. OP. Oe OA. OP. BR OR Oe me ome me me me me OR me Om Om OA ER OM OR Om OR ER Oe Oe OO EM ER EE Em 


Sete Se Se Se Oe Se Be Oe Be Se Se Se Se Ge FH Se Se Se Se SH Se Se Se Se Se See Se Oe Se Se Se Se se tee 


LOCAL 


1986 98:36:43 


LISTLENTRY : BLOCK C S%UPVAL, BYTE J; 
IF( (LISTLENTRY = .EXCEPTION_LISTC .1 J) EQL O ) 


EXITLOOP; 


IF( .EXC_NAME 
( .EXC_NAME 


AND 
TLENTRYC STS$V_MSG_NO J ) 


RETURN( TRUE); 


! Entry not found in the exception List. 


RETURN(FALSE); 


DWONAMNE WN OOONOULS Wr 


999999 Rr ree 
FP at et et et et et tt 
=PIPNIMININIW EW Ot 


Sete ee Se Ge Ge Ge Ge ee Ge Ge Ge Ge ee Hee Seas 
PA VIIMVIVIVT 

kL? te ee ee | 

MO VCONOUS 


O4BC 0404 0484 0414 


0434 043C 0454 srry 0629 0 


Routine Base: 


3; Routine Size: 


000 O042C 0 


50 
51 0000'CF40 
20 
8F 06 a 
1 
51 04 as 
8F 5 
bt 
50 1 


50 7FFFFFFF oF 


TBKSPLIT,NOWRT, 


“ P.AAL: .WORD 1076, 1044, = 


, 1220, 1212, 1124, 1068 
EXCEPTION_LIST= 


TBKSCODE ,NOWRT, 
0004 00000 IS_EXCEPTION: 
WORD 


EXCEPTION LISTCII, LIST_ENTRY 
XC_NAME*2,, #4095 
LIST_ENTRY, R2 


ggrerseses?,, I, 1$ 
R 


TBKSCODE + 0192 


TBKBA 
v04-0 
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rs 
o 


85 


D000000000@ 
SBLESRAN LESSEE 


600 
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H 2 
1erStp-1986 8:20:17 DL SKSVMSMASTER: CTRACE. 


%1F TBK_BAS2 
XTHEN 


GLOBAL ROUTINE LIST_DST = 
lee 


BEGIN 


vocos 
Owner 


R 
( DST_REC_ID )) NEQ 0 ) 


$FAO_TT_OU 
WHILE ( TOSTR 
BEGIN 
! Process each record depending on its DST type. 


ing off th 


f 

Di REF DSTSR 
e 

D = TBKSGET_N 


xom 
“Ano 
' +O 


XIF TBK_BAS2 
XTHEN 
! For diagnostic purposes we List out the entire record. 
{1 OST RECROCDS TSR TPE? EQL dst$k_modbeg) 
BEGIN 
SFAO_TT_OUT('MC for module '); 
pr_cs(dst_recrd(dst$b_name)); 


end; 
SFAO_TT_OUT( "DST Rec Id=!XL, is at !XL, for !UD bytes. 
.DST_REC_ID, .DST_RECRD, .DST_RECRDCdst$b_lengthi ); 


! Dump the reocrd in bytes. 
INCR I FROM O TO .DST_RECRDCdst$b_length) 
SFAO_TT_OUT("! XB *, DST_RECRDC .I1, 0, 8, 0] ); 


at 
a] 
ms 


CASE .DST_RECRDCdst$b_type] FROM dst$k_lowest TO dst$k_highest OF 
SET 
Cdst$k_modbeg):. ! Module Begin Record. 


NEW_PTR : REF MC_RECORD; 
END; 


Cdst$k_modend): 
BEGIN 
END; 
Cdst$k_rtnbeg, 


! Module End Record. 


' Routine DSTs. 


42 
SR 


CITBKBAS .B32 


ne 


1 
(6 


6 
) 


2 
T bead = 3 3 ee oe ~U= 
V £000 1-00-1964 93:38:47 DLEKSVMSHASTERSLYRACE SACITBKBAS.B32—4°° bs 


LF .DST_RECRDCdst $b_ type] EQL DSCSK_DTYPE_2 ) 


BEGIN 


: 60) 4 $08 ! dst$k_labelJ: ! Labels in FORTRAN and BLISS. : } 
Sie an 4 
: 645 u 0911 1 ! just tally up the needed statistics 3 4 
; one U a 1 ! so that we can build the other data = 4 
3 rans i + ! ! structures Later. ; ! 
; 649 U 0915 1 NT COUNT = .NT_COUNT +1; ‘@ 
BP BBY bai 4 
; $36 U ai8 1 Cdst$k_rtnend ! BLISS-only End-of-Routine. + 4 
3 $2? 838 ! dst$k-blifldd: : BLISS-only FIELD records. ; 
: 655 U 0921 1 ! We can safely ignore these for now. er f 
Be BBR . a 
; 028 u 43 : ! Cdst$k_lblorlit]: ! Label or Literal DSTs. (MARS only) : 
. te espe a 
i 668 U 0928 | NT COUNT = .NT_COUNT #1; : | 
BURG “4 . 4 
; 665 U 03 1 3 Cdst$k_psect): ! Psect DSTs. : : 
; 666 998% BECIN ; i 
; 667 U 09 1 IND ij 
; 668 U 0934 1 PSECT_LENGTH ij 
; 669 u 0935 { = ! Pick up the field length, which ; 3 
: 670 U 09 $ 1 ! is after the NAME so must be i 
3 $7) ; 8 i : ! dynamically located. : 3 
: £78 u 0939 1 DST REE ROEdstSb_nane ! The symbol-name count, : ; 
; 674 U 0940 1 + DST_RECRDLdst$b_name ! plus its address, ; 3 
; of? ¥ me) : + 1 )°: LONG; ! addresses the LENGTH. tj 
: 878 4 09¢8 | xIF tbk_bas2 | 
; 678 U 0944 1 XTHEN ; 4 
; 679 U 0945 1 SFAO_TT_OUT("PSECT begins: !XL, ends !XL', ae 
; U 0946 | -DST_PECRDCds $1 value). ; | 
; 1 4 : trl -DST_RECROCdst$l_valuel+.PSECT_LENGTH+1 ); - 3 
; 5 U 349 1 nt_count = .nt_count +1; ; ' 
: 685 U O981 | ot 3 
; 6 U 095¢ | CINRANGE, OUTRANGE): . 
; 6 U 0954 1 BEGIN Be 
; U Ha 1 ! The only reason for not making the ‘'SRM types" ; 
; 4691 U 09 1 ' part of the pyove CASE is because of the huge - 
; o3¢ U 09 8 1 ! case table which gets generated otherwise. 4 
3 U 09 1 3 
2 696 y 1 a4 
; U 1 P= 
: U 1 BA 4 
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RETURN(™1 ); 
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Pp 
JTBKBAS.B32;1"" ( 


2 
RC 


* , sADDRCOJ, ADDRLO) ); 


"ser" 


d string in an 


unambiguous way for debugging purposes. 


: NOVALUE = 
: REF VECTORC,BYTE); 


ADDR 
! Don't get fooled! 
SFAO_TT_OUT( ‘#e* PR_CS AT 0 eeee ' ) 


$FAO_TT_OUT( "Name(!UB.): 


nt out a counte 
-ADDR EQL 0 ) 


Pp 


MA 


Funct tones Description: 
Pr 


“ROUTINE PR_CS( ADDR ) 
++ 


Se em pm pm pe bee De bee bee ee ee ee See ee me ee ee bee bm me bm bm = bm) 


PNTMNOP-DKOK— MUM TMOR. DOO CIM TNOP- OO 
PVN AF SF SF SF SFT TT TTA 
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IE 


KBA 
-000 
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Name 
TBKSPLIT 
TBKSCODE 


File 


~$255$DUA28: 
~$259$DUAZ8: 
$255$DUA28: 
“$255$DUA28: 


$ 1 END 
6 0 ELUDOM 


PSECT SUMMARY 
Bytes 


186 NOVEC,NOWRT, 


RD , 
449 NOVEC,NOWRT, 


RD , 


Library Statistics 
weneeen= Symbols 


Total Loaded 
SYSLIBILIB.L32;1 18619 
TRACE .OBJJTBKLIB.L32;1 157 2} 
TRACE .OBJ JSTRUCDEF t§e, 1 32 g 
TRACE .OBJJTBKDST.L3 414 10 


COMMAND QUALIFIERS 


Sep-1 
1$-$¢0-1 


984 19:26:17 bnSkSumsmastensctRa 


Attributes 

EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 

ovecsese Pages Processing 

Percent ' Mapped Time 

9 1000 00:01.9 

14 00:00.2 

7 00:00.1 

24 30 00:00.3 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$: TBKBAS/OBJ=0BJ$: TBKBAS .MSRC$: TBKBAS/UPDATE=(ENH$: TBKBAS) 


plbbe tae: 
Lines/CPU Min: 


449 code + 186 data bytes 
00:36.1 


911 
onenee/ Sewn 21918 


137 pages 


ret Mey Complete 
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